home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / MAC / MPW_TOOL / TOOLS / TOOLS_WI / ICON_8 / TESTS / VAR.ICN < prev    next >
Text File  |  1990-03-02  |  163b  |  10 lines
  1. procedure main(a)
  2.    local x
  3.    static y
  4.    variable("a") := 1
  5.    variable("x") := 2
  6.    variable("y") := 3
  7.    display()
  8.    if variable("z") then write("oops")
  9. end
  10.